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#def ine ATTJEHA I L_F I LE "TFMOBOX.TMP" 

define DELIMITER* "End of Telefind Network MessageVn" 
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^include <string.h> 
^include <time.h> 
#include <stdio.h> 
# include <dos.h> 
#include "safari .h" 

void main(void) 
C 

FILE *infUe,*outfile; 

char buffer C813 ,chr # timestr [6] ,datestr[91; 
char msg_nura[43 ; 
int msg_num_opt = 0; 
char *ptr; 

int x, day, month, line=1 .attmai 1=0; 
time_t t; 

if CCinfile = f openC ATT_EMA I L_F I LE , " r t 11 ) ) == NULL) 
C 

printf(»%s does not exist\n M ,ATT_EMAIL_FILE); 
exit(0); 

> 

if ((outfile - fopenC'tfmobox.S^/'wt")) " MULL) 

printf ("Can't open TFMOBOX.$$S\n»); 
exit(0); 

; : ; > 

I for(;;) 

/* get characters from .tmp file */ 

. ^ x = 0; 

7*1 d0 

'-^ chr = fgetcO'nf ile); 

if (feof(infile)) 

, =1 fclosed'nf ile); 

fclose(outf lie); 
U. exit(0); 

il buffer Cx++3 = chr; 
M > 

/* until end of line */ 

while (chr != '\n« && x \- 80); 

buffer Cxi = '\0»; /* terminate it V 

if (line ™ 1) 

ptr = strchr(buffer,*)'); 

if (ptr-buffer == 2) /* was 3rd character */ 

sscanf ( buf f er , "X V )3 " , msg_num> ; 

msg_num_opt = 1; 

ptr++; 

> 

else 

ptr = buffer; 

if (*ptr ==«:■&& *(ptr+1) ~ «D') 
attmail = 1; 

> 

1 if (attmail) 

C 

suitch(line) 
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• 



> 

else 



case 1: 

/* datestr = mm/dd, timestr = hh:mra */ 

sscanf(datestr,»%d/%d»,&n»nth,&day); */ 
/* get year from pc */ 

t - time(NULL); 

fprintf<outfile r »Date: %s«,ctime(&t)); 
break; 

case 2: 

fprintf (outf ile, "From: %s M , buffer); 
break; 

case 3: 

fprintf (outf ile, "Subject: %s M r buf fer); 
fprintf(outfile,"To: <Mame here>\n H ); 
if (msg_num_opt ) 

fprintf (outf f le, "Message #%s\n",msg_num); 

break; 

default: 

fprintf (outf i le,"%s", buffer) ; 
break; 



if (line == 1) 



y 

else 



t = time(NUU); 

fprintf (outf ile, "Date: %s",ctime(&t)); 
fprintf (outf ile, "From: tfmobox\n»); 

fprintf (outf ile, "Subject: Telefind Network Message\n"); 
fprintf (outf ile, "To: <Name here>\n"); 
if (msg_num_opt ) 
< 

fprintf (outf ile, "Message #%s\n",msg_num); 
fprintf(outfile,"%s",buffer+3); 

> 

else 

fprintf (outf ile, »%s", buff er); 



fprintf (outf ile,"%s'\ buffer); 



if (strcmp(buffer, DELIMITER) == 0) 
C 

msgjum_opt = line = attmail = 0; 

> 

line ++; 
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Author: 



MICHAEL P. PONSCHICE, SR. 
03/13/91 



Program: 
Purpose: 



SAFARI3.C 

TO EXTRACT MESSAGES FROM A TELE FIND PAGER 
VIA IN RS-Z32 PORT ON A PC 



Compiler: 
Memory Model : 



TURBO C++ 1.0 
SMALL 



# include <dos.h> 
^include <stdio.h* 
#include <conio.h> 
#include <string.h> 
^include <stdl)b.h> 
#include "safari .h" 



/* 



CONSTANTS 



#define DTR JU 0x01 

#define DTRJ.0 Oxfe 

#define RTSJU 0x02 

#def ine ; RTSJ.0 Oxfd 

#defin<DSRJU 0x20 

#def inef RING_IN 0x40 

#define? CO_hT 0x80 

#definei FIVE_TICIC 5 

#def infe FIVE_SEC 96 

#def ine TUELVE_SEC 220 

#def in4; LOG_FILE "LOG" 

#define INTRO_STRING "Please standby, retrieving messages ..." 

/* - FUNCTION PROTOTYPES */ 

int belp(void); 

void bA|syof f (void); 

void bgsyon(void); 

void btlsoff (void); 

void oMson(void); 

int tink(void); 

void print jnessage(void); 

int rxdata(void); 

int strobe(void); 

int strobe_data(void); 

unsigned ticks(void); 

int timeout (unsigned start, int delay); 

/* VARIABLE DECLARATIONS */ 

char pagerjxrffert511] ; 

int com^basejcontrol^reg.status^reg, log_f lag; 
FILE *log_file; 

void main(int num_arg, char **args) 
C 

unsigned start; 
int restart ,x; 

com_base = 0x3f8; /* use com 1 unless command line denotes otherwise V 

/* get command line arguments */ 
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all command line arguments begin with a single x -' and 
must be seperated by a single space between each other 
and the program name 

-1 Use COM port 1 
-2 Use COM port 2 

-F Log all activity to a file named LOG 

if <num_ arg > 1) 
C 

for (x=1; x<num_arg; x++) 
C 

if (strcmpOrgsCx],"-!") == 0) 
com_base = 0x3f8? 

if <strcmp<argsCx3,"-2") == 0> 
com_base = 0x2f8; 

if <strcmp<argsCx],"-F") == 0) 
log_flag = 1; 

> 

> 

if <log_flag) 

"if ((log^file = f open( L06_F I LE , "at 11 ) ) == NULL) 
printf("Unable to open L0G\n">; 

control_reg = com_base + 4; 
st£tus_reg = com_base + 6; 

eijscrO; 

iC(linkC) == 0) /* is pager attached ? 

H <: 

W printf ("Please attach Message Receiver \n"); 
-Vll exit(0); 

c > 

busyonO; /* start busy at logic high 

ii;<log_flag) 

^ fprintf(log_file, "Initiating process \n»); 
pilntf ("%s\n", INTRO.STR1NG); 
d4£on(); /* push display button */ 

sleep(2); 
do 
C 

start = ticksO; 
restart = 0; 
do 
< 

if CbeepO) 
C 

print jnessageC ) ; 
restart = 1; 
start -= TWELVE.SEC? 
break; 

> 

/* hold display button for 12 seconds */ 
whileCt timeout (start ,TWELVE_SEC>); 

> 

while(restart); 

disoffO; /* release the display button */ 

if (log_flag) 

C 

fprintf(log_f i I e, "Process Complete \n"); 



fclose<log_f f le); 

> 



pager beep */ 

beep (void) 



accesses the RI line via the Status Register 
which is activated when the pager beeps */ 

unsigned start; 

start = ticksO; 
1 while ( ! timeout<start f FIVEjnCK)> 
C 

if <<inportb<status_reg) & RINGJN) == 0 ) 
returnd); 

return(O); 

bus^yon & busyoff toggle the OTR line via the 

Control Register to strobe in data from the pager */ 
d busyoff (void) 

outportbCcontrol^reg^inportbCcontrol^reg) | DTRJU); 

d busyon(yoid) 

outportbCcontrol^reg^riportbCcontrol^reg) & DTRJ.O); 

diSon & disoff toggle the RTS line via the Control Register 

to:kfmulate the pressing of the display button on the pager */ 

d dison(void) 

outportb(control_reg,inportb<control_reg) | RTSJU); 

d disoff(void) 

outportb<control_reg,inportb<control_reg) & RTSJ.O); 

link(void) 



accesses the CD line via the Status Register 
which is logic high when pager is connected */ 

if (Cinportb(status_reg) & CD_H I ) ™ 0) 

return(O); 
return( 1 ) ; 



d printjnessage(void) 

FILE *file; 

unsigned start; 

int x f y=0,z=0,chr,bit; 
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busyoffO; /* ready to accept pager data 

/* read until end code received 

while (chr != 3) 

C 

chr = 0; 

start = ticksO; 

/* wait for start bit V 

do 

C 

bit = strobeO; 
if (bit == 0) 
break; 

> 

while (!timeout(start,FIVE_SEO); 

if (bit) 
i 



if (log_flag) 

fprintf(log_f i te," Transmission Error, recheck connect ion\n"); 
disoffQ; 
exit(0); 



strobe out 8 bit data 



for <x=1; x<9; x++) 

<: 

chr <<= 1; 

chr += bit = strobe_dataO; 

> 

/* clear out stop bits 

for (x=1;x<3;x-m-) 

<: 

strobe_data(); 

> 

/* extract start and end codes from message 



pager signon 
pager signoff 



02, IB, 0D f 33 
03 



if C(y > 3) && (chr != 3)) 

/* pager characters 96 and 97 are converted to 
OxFA and OxFB to display on pager 



if (chr == Oxfa) 

chr = ■\n l ; 

if (chr == Oxfb) 

chr = 0x09; 

pager JxifferUj = chr; 



/* 
/* 



convert to CR 
convert to TAB 



*/ 
*/ 
*/ 



pager_buf f er Cz3 = 'NO 1 ; /* 
busyonO; /* finished receiving data 



null terminate 
*/ 
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#> 

* if <log_flag) 

f printf<log_file f »%s\n , \ pager Jxjffer); 

if «file = fopen<ATT_EMAIL_FILE, "at")) =- NULL) 

fprintf(log_fUe,"Unable to open T FHOBOX . TMP\n" ) ; 

else 
C 

f pr i ntf < f i I e , »%s\n» , pager_buf f er ) ; 
fprintf(file,"%s", DELIMITER); 
fclose<f f le); 

> 

start = ticksO; 

whi le(t ti meout < s t a r t , F I VE_SEC ) ) 

C 

/* wait for erase beep */ 
if (beepO) break; 

> 

sleepCD; /* wait one more second */ 

> 

int rxdata(void) 
<. 

/* accesses the OSR Line via the Status Register 

j which returns the bits value */ 

§ if <inportb<status_reg) & DSR_HI) 
-'-I return(O); 
returnd); 

> 

int fsirobe(void) 

int bit; 

;,; busyon( ) ; 

u \ delayd); 

>\\ busyoffO; / 

^ delay<4); 

; l bit = rxdataO; 

1 return(bit); 

int strobe_data(void) 

i 

int bit; 

busyonC ) ; 

delay<2); 

bit = rxdataO; 

busyoffO; 

delayd); 

return(bit); 

> 

unsigned ticks(void) 

/* returns timer ticks (approx. 18-2/sec) 

using only lower registers */ 

union REGS in, out; 

in.x.ax = 0x0; 
int86C0x1a r &in r &out); 
return < out . x . dx ) ; 
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timeout (unsigned start, int delay) 

/* used for timing events of up to approx. 1 hour. 

used in conjunction w/ticksO */ 

unsigned current; 

current = ticksO; 

if <start <= current && (start + delay) < current) 
return( 1 ) ; 

if (start > current && (start - 65535 + delay) < current) 

return(l); 
return(O); 



/* mark the end of the command line you built, so you can add ending 

delimiter */ 
sys commandfi] = NULL; 

/* add the ending quote for the users message so shell wont 

interepert special characters */ 
st r cat ( sys_c onanand, " \ ' " ) ; 
/* execute command you built */ 
system <sys — command) ; 

printf ("sending message: %s\n", sys_command) ; 

) 

else { 

if (strlen (mesg) 0 ) { 
return (0) ; 

/* print error for invalid message length */ 

printf Ctelemail error: invalid message length: %s\n M , mesg) ; 
return (0); 

> 

return (i) ; 



* function: getline (hold-buff er, input-file-pointer) 

* arguments: pointer to buffer where line read will be heald, 

* file pointer to input file 

* description: reads 1 line of text from the input line and stores the 

* line read into the buffer passed. 

* returns: -1 if EOF or number of characters read in 
* 

getline (buff, fp) 
char *buff; 
FILE *fp; 
{ 

int ch, cnt; 

/* keep on reading characetrs from file so long as end of file not 

reached or char is the end of line */ 
for (cnt = 0; ( (ch = fgetc(fp)) !» EOF) && ch !« ' \n' ; cnt++) ( 
/* MOD BY OT 11/29/90 convert tab to space */ 
/* convert tabs to single space */ 
if (ch «- 9) < 
ch - ' '; 

/* MOD BY OT 11/29/90 dont allow control char */ 
/* only load in ascii characters */ 
if (isprint (ch) !- 0) { 
buff [cnt] » ch; 

} 

else { 

/* turn control characters to spaces */ 
buff [cnt] « ' '; 

1 

) 

/* mark the end of the buffer you built */ 
buff [cnt] - '\0'; 
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* function: send_mesg (message -pointer) 

* arguments: pointer to text message (capcode, text) to be sent 

* description: takes passed message text makes sure the first 8 positions 

* are numeric (capcode) . it builds and executes the network 

* send command (net send. sh> to sedn the message passed* 

* returns: 0 if not sent otherwise the number of characters sent out 
* 

int sendjraesg (mesg) 
char *mesg; 

{ 

char sys_commandf 700] ; 
int i; 
int ch; 

char *mesg_ptr; 

/* left justify the message passed to remove leading spaces */ 
strl just (mesg, 512); 

/* trim off trailing blank spaces from the message */ 
strtrim(mesg) ; 

/* make sure you have a capcode at least */ 
if (strlen (mesg) > 8) { 

/* start to build the command to be executed to send message retreieved 

from the mail box */ 
strcpy <sys_command, "netsend.sh "); 

/* loop while still more characters in the message */ 
for(mesg_ptr * mesg, i « 11; *mesg_ptr !- NULL; i++, mesgj)tr++) { 

/* make sure the first 8 positions of the message are numeric */ 
if((i < 19) &6 (*mesg_ptr < f 0' II *mesg_ptr > '9')) { 

print f ("telemail error: invalid capcode: %s\n w , mesg); 

return 0; 

} 

/* is the user didsnt seperate capcode & message then insert a 

space into the command */ 
if(i — 19 &fr *mesg_ptr !* ' ') { 

sys command(19] = ' '; 

i -""20; 

) 

/* enclose the users message with ' so shell wont interpet 

special characters */ 
if (i »- 20) { 

sys_command(20) « ' V ' ; 

i - 21; 

) 

/* put the character from the message onto to the 

command to be executed"*/ 
sys_command[i] - *raesgjptr; 

} 



/* since your just starting clear the message area */ 
memset (mesg, NULL, MAXMSGLEN) ; 

/ w J ? eep on 9«ting lines from the file until you reach end of file */ 
while (getline (buff, fp) !- -1) < 

/* every mail message start with the word "From " */ 
if <strncmp(buff , "From ", 5) — 0) { 

/• set flag telling you are currently going thru mail header 
so you dont add it to the message */ 

ln_header - 1; 

/* call routine to the last message if any exists */ 

send mesg (mesg) ; 

contTnue; 

} 

/* a mail header end with the following string */ 
if <strncmp(buff , "Content -Length: 15) — 0) < 

/* turn off flag so you know you are no longer in mail 
message header */ 

in_header ■ 0; 

/* clear the old message since this is a new one */ 

memset (mesg, NULL, MAXMSGLEN); 

continue; 

) 

/ * i £- t £ e line you are now "ading in not part of the mail header 

add it to the message */ 
if (in_header « 0) { 

strl just (buff, 512); 

strtrim(buff) ; 

/* make sure you dont add more than the message length */ 
if( (strien(buff ) + strlen (mesg) ) < MAXMSGLEN) { 

strcatdnesg, " "); 

strcat (mesg, buff) ; 

) 

) /* end of read line while V 

/* send the last message in the file */ 
send_jnesg (mesg) ; 



